home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / icons+tools / iconian / sources / emodules / mod / iff.e < prev    next >
Text File  |  1995-12-22  |  956b  |  43 lines
  1. OPT MODULE
  2.  
  3. MODULE    'libraries/iffparse','iffparse'
  4.  
  5. EXPORT PROC savevaluechunk(handle,form,chunk,longvalue)
  6.     DEF buffer
  7.     buffer:=New(4)
  8.     IF (buffer)
  9.         PushChunk(handle,form,chunk,4)
  10.             PutLong(buffer,longvalue)
  11.             WriteChunkBytes(handle,buffer,4)
  12.         PopChunk(handle)
  13.         Dispose(buffer)
  14.     ENDIF
  15. ENDPROC
  16.  
  17. EXPORT PROC getvaluechunk(handle,form,chunk,longvalue)
  18.     DEF sp=NIL:PTR TO storedproperty
  19.     IF (sp:=FindProp(handle,form,chunk))
  20.         longvalue:=Long(sp.data)
  21.     ENDIF
  22. ENDPROC longvalue
  23.  
  24. EXPORT PROC getprefstring(handle,form,chunkid,str)
  25.     DEF sp=NIL:PTR TO storedproperty
  26.     IF (sp:=FindProp(handle,form,chunkid))
  27.         IF Long(sp.data)
  28.             StrCopy(str,sp.data+4,Long(sp.data))
  29.         ENDIF
  30.     ENDIF
  31. ENDPROC
  32.  
  33. EXPORT PROC writeprefstring(handle,form,chunkid,str)
  34.     DEF buffer,n
  35.     buffer:=New(10)
  36.     PushChunk(handle,form,chunkid,IFFSIZE_UNKNOWN)
  37.     n:=StrLen(str)
  38.     PutLong(buffer,n)
  39.     WriteChunkBytes(handle,buffer,4)
  40.     IF n THEN WriteChunkBytes(handle,str,n)
  41.     PopChunk(handle)
  42. ENDPROC
  43.